Cesta k cizi aplikaci ?

Otázka od: Jiri Betunak

16. 4. 2004 10:14

Hello delphi-l,

Prosim prosim nevite nekdo jak zjistit cestu k programu kdyz znam jeho
Handle pripadne caption ?
predem diky za jakoukoliv odpoved a pomoc
priklady uvitam

--
Best regards,
Jiri mailto:kindrik@centrum.cz

ICQ: 265297587

__________________________________________________________________

Odpovedá: Vaclav Krmela

16. 4. 2004 15:14

> From: Jiri Betunak
>
> Prosim prosim nevite nekdo jak zjistit cestu k programu kdyz znam jeho
> Handle pripadne caption ?

Co treba takhle:

uses TlHelp32;

function GetAppPathFromWindowHandle(AHandle: THandle): string;
var me: ModuleEntry32;
    DW: DWORD;
    H: THandle;
begin
  Result := '';
  GetWindowThreadProcessId(AHandle, DW);
  H := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, DW);
  me.dwSize := SizeOf(ModuleEntry32);
  if Module32First(H, me) then
    Result := me.szExePath;
  CloseHandle(H);
end;

Vaclav Krmela

Odpovedá: Frantisek Bohac

16. 4. 2004 15:14

uses
JclSysInfo;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetProcessNameFromWnd(Application.Handle));
end;

S pozdravem

Frantisek Bohac

Jiri Betunak napsal(a):

>nevite nekdo jak zjistit cestu k programu kdyz znam jeho
>Handle pripadne caption ?
>